home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / mmain.lha / MASTERMAiN < prev    next >
Text File  |  1995-05-24  |  4KB  |  57 lines
  1. /*** MASTERMAiN VER0.9 OFFiCiAL ***/
  2.  
  3. /*
  4. .--------------------------------------------------------------------.
  5. | Welcome to MASTERMAiN Version 0.9                                  |
  6. | ---------------------------------                                  |
  7. | MASTERMAiN loest das Problem, das jeder neue CNet-SysOp sicher     |
  8. | recht bald haben wird: Da malt man ein schoenes Hauptmenue, die    |
  9. | 2.4er User beschweren sich, dass es so lange dauert, bis das Menue |
  10. | aufgebaut ist und die "Eggsberdn" haben auch was gegen die 15+     |
  11. | Zeilen, die jedesmal erscheinen und jeden Output verlangsamen.     |
  12. |                                                                    |
  13. | Jetzt kommt MASTERMAiN und behebt dieses Problem - denn wenn die   |
  14. | User statt "Beginner" einen hoeheren Helplevel einstellen, dann    |
  15. | geht's zwar schneller - dafuer ist das ganze Menue wech...         |
  16. | Also im BBSText in die Zeile "MAIN>" vor dem MAIN> die Zeile       |
  17. | {#0pfiles:MASTERMAiN/MASTERMAiN} austauschen. Die "{" ist          |
  18. | wer haette das gedacht, ein CTRL-Q!                                |
  19. | Wichtig, vorher die Zeile "Base, Feedback..." loeschen und eine    |
  20. | einfache Leerzeile lassen, wenn Die Zeile fehlt, dann laueft die   |
  21. | ganze Indizierung falsch.. Du solltest den Aufruf auch nicht in    |
  22. | diese Zeile schreiben, da sonst ab "Intermediate" ueberhaupt kein  |
  23. | Menue mehr kommt.                                                  |
  24. |                                                                    |
  25. | MASTERMAiN braucht neben dem Rexx-File MASTERMAiN auch noch        |
  26. | die Files "sys.menu.beginner", "sys.menu.advanced",                |
  27. | "sys.menu.expert" und "sys.menu.superuser"                         |
  28. | Diese Dateien sollten im MASTERMAiN-Verzeichnis liegen ("pfiles:   |
  29. | MASTERMAiN") oder in dem Verzeichnis, das in den UserConfigs weiter|
  30. | unten als "menu_path" eingetragen ist.                             |
  31. | Beispiel-Dateien sollten diesem Archiv eigentlich beiliegen, wenn  |
  32. | nicht, dann empfehle ich, zumindest bei "sys.menu.beginner" am     |
  33. | Anfang ein "[Return druecken]\i0" vor dem ScreenClear einzufuegen, |
  34. | da anderen Ausgaben sonst zerstoert wuerden.                       |
  35. |                                                                    |
  36. | MASTERMAiN ist (C) 1994 by Jonas Peregrin                          |
  37. | Die jeweils aktuelle Version kann aus der MATRiX ++49-951-36097    |
  38. | gesaugt werden.                                                    |
  39. | MASTERMAiN ist HECK-Ware, what the heck am I interested in what    |
  40. | your gonna do with.                                                |
  41. | Aussname: Uebernehmen und seinen eigenen Namen in die Autor-Line   |
  42. | schreiben.. Ich kenne eine Menge CNet-Boxen, wenn ich sowas sehe,  |
  43. | dann kann mich mal jemand sauwuetend erleben...                    |
  44. |                                                                    |
  45. | Autor: Jonas Peregrin                                              |
  46. | Successfully tested with: CNetPro 3.01+                            |
  47. `--------------------------------------------------------------------'
  48. */
  49.  
  50. OPTIONS RESULTS
  51.  
  52. /* Configure THiS if you gonna threw it somwhere else */
  53. menu_path="pfiles:MASTERMAiN/"
  54.  
  55. /* Here we GO */
  56. getuser 55;level=result;if level=0 then signal NEWBiE;if level=1 then signal NORMAL;if level=2 then signal MiND;if level=3 then signal iNCREDiBLE;NEWBiE:;GETCARRIER;if result=0 then signal WAAAH;sendfile menu_path||"sys.menu.beginner";EXIT;NORMAL:;GETCARRIER;if result=0 then signal WAAAH;sendfile menu_path||"sys.menu.advanced";EXIT;MiND:;GETCARRIER;if result=0 then signal WAAAH;sendfile menu_path||"sys.menu.expert";EXIT;iNCREDiBLE:;GETCARRIER;if result=0 then signal WAAAH;sendfile menu_path||"sys.menu.superuser";EXIT;WAAAH:;LOGENTRY "-> Carrier ging floeten <-";EXIT
  57.